home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Window, finding handle by class and window names < prev    next >
Encoding:
Text File  |  1997-07-16  |  578 b   |  14 lines
  1. 'Description: Returns HWND of window specified by the class name and window name
  2.  
  3. 'Private Declare Function M_FindWindow Lib "User" Alias "FindWindow" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
  4. 'Function FindWindow(ByVal sClassName As String, ByVal sWindowName As String) As Long
  5. Dim xHwnd           As Long
  6. If Len(sClassName) = 0 Then
  7.    xHwnd = M_FindWindow(0&, sWindowName)
  8. ElseIf Len(sWindowName) = 0 Then
  9.    xHwnd = M_FindWindow(sClassName, 0&)
  10. Else
  11.    xHwnd = M_FindWindow(sClassName, sWindowName)
  12. End If
  13. FindWindow = xHwnd
  14. 'End Function